Private Sub CreateListItem (FirstLine As String, SecondLine As String, Width As Int, Height As Int) As B4XView
	Dim p As B4XView = xui.CreatePanel("")
	p.LoadLayout("ListItem")
	p.SetLayoutAnimated(0, 0, 0, Width, Height)
	imgItem.Bitmap = xui.LoadBitmapResize(File.DirAssets, "icon.png", 40dip, 40dip, True)
	lblFirstLine.Text = FirstLine
	lblSecondLine.Text = SecondLine
	Return p
End Sub